home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / Font / s / Font0b < prev    next >
Text File  |  1995-08-26  |  502b  |  25 lines
  1. ; Author: Copyright 1993 Shaun Blackmore
  2.  
  3.         GET     ^.h.regdefs
  4.         GET     ^.h.swinos
  5.         GET     ^.h.macros
  6.  
  7. ;os_error *Font_CurrentFont(FontState *state);
  8.  
  9.  
  10.  
  11.         PREAMBLE
  12.         STARTCODE Font_CurrentFont
  13. ;
  14.         STMFD   sp!, {r4,lr}
  15.         MOV     r4,r0
  16.         SWI     SWI_Font_CurrentFont + XOS_Bit
  17.         STR     r0,[r4,#0]
  18.         STR     r1,[r4,#4]
  19.         STR     r2,[r4,#8]
  20.         STR     r3,[r4,#12]
  21.         MOVVC   r0,#0
  22.         LDMFD   sp!, {r4,pc}^
  23. ;
  24.         END
  25.